home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / tokyo / east.dir / 00013_east.ls < prev    next >
Encoding:
Text File  |  1999-04-26  |  603 b   |  25 lines
  1. global EsprtList
  2.  
  3. on east
  4.   if rollOver(43) then
  5.     cursor([1, 2])
  6.     set the loc of sprite 39 to point(the mouseH, the mouseV)
  7.     animate(39, 164, 179)
  8.   else
  9.     if rollOver(40) then
  10.       cursor(200)
  11.       set the loc of sprite 38 to point(the mouseH, the mouseV)
  12.       animate(38, 17, 35)
  13.     else
  14.       cursor([9, 10])
  15.       set the loc of sprite 39 to point(-100, -100)
  16.       set the loc of sprite 38 to point(-100, -100)
  17.       repeat with i = 1 to count(EsprtList)
  18.         if count(EsprtList) > 0 then
  19.           Run(getAt(EsprtList, i))
  20.         end if
  21.       end repeat
  22.     end if
  23.   end if
  24. end
  25.